home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Games / MCommand / Source / scorePhaseMissiles.psw < prev    next >
Encoding:
Text File  |  1994-04-01  |  1.0 KB  |  44 lines
  1. defineps scorePhaseMissiles(int count,total | boolean *result)
  2. %
  3. %
  4. %   Copyright 1992, Stefanos Kiakas. All rights reserved.
  5. %
  6. %   You may not delete this notice.
  7. %
  8. %
  9. % this functiion returns a value to synchronize the output
  10. % between the program and the DPS engine
  11.  
  12.         /x 200 def               % x  start position 
  13.     /y 200 def               % y start position
  14.         /cstr  2 string def      % declare space for a string of length 2
  15.     /ttlstr 7 string def     % declare space for a string of length 7
  16.     
  17.         /Times-Roman findfont    % select  and set up font
  18.         15 scalefont
  19.     setfont
  20.  
  21.     
  22.     total ttlstr cvs         % initialize ttlstr to total
  23.     count cstr cvs           % let cstr equal the string of count
  24.  
  25.     1 setgray                % erase space
  26.     newpath
  27.     x y moveto
  28.     0 20 rlineto
  29.     150 0 rlineto
  30.     0 -20 rlineto
  31.     -150 0 rlineto
  32.     closepath
  33.     fill
  34.  
  35.     0 setgray                % set colour black  
  36.     x y moveto
  37.     ( x ) show               % display text
  38.     cstr show
  39.     ( x  50 =  ) show      
  40.     ttlstr show
  41.     20000 {} repeat
  42.     flushgraphics
  43.     true result
  44. endps